10 input X,Y
20 clear 
30 box X,Y,1,1,1
40 A = X + Y div  2; B = Y - A div  2
50 if PX(A,B) = 1 goto 10
60 X = A; Y = B; goto 30
:return ;run 
